home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / RUNDOS.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  452 b   |  19 lines
  1. ' RUNDOS.BAS
  2. ' This program executes a DOS command.
  3.  
  4. CLS
  5.  
  6. COLOR 3                   ' set color to cyan
  7.                           ' get DOS command line from user
  8. INPUT "Enter a DOS command line [press Enter to run DOS]:  ", dosCom$
  9. PRINT
  10.  
  11. SHELL dosCom$             ' exit to DOS and execute the command
  12.  
  13. PRINT
  14. PRINT "DOS command complete"
  15.  
  16. COLOR 7                   ' set color to default white
  17.                                     
  18.  
  19.